Revista CD Expert 37/CD Expert nº 37.iso/LastCall/lastcall.exe/stuff/lastcall.dxr/00125_Register Bell.ls

Text File | 2000-03-27 | 618 b | 30 lines

on new me
  return me
end

on stepFrame me
  global gSoundFX2chan, gStartRegisterSpr, gEndRegisterSpr, gTipPending
  if inMenuMode() then
    exit
  end if
  repeat with X = gStartRegisterSpr to gEndRegisterSpr
    if sprite(X).pOldDigit <> sprite(X).pNewDigit then
      exit
    end if
  end repeat
  if soundBusy(gSoundFX2chan) then
    exit
  end if
  soundFX2("cash register sound", 0, 0)
  updateStage()
  refreshTipRegister()
  if beyondMaxTips() then
    repeat while soundBusy(gSoundFX2chan)
      checkElapsedTime()
      updateStage()
    end repeat
  end if
  removeFromActorList(me)
  gTipPending = 0
end